C  SUBRS.  BRKSLR

	SUBROUTINE BRKSLR
	COMMON R2,JA,CENTR,J2,R3,R4,R5,R6,R7,R8,R9,R10,RA,RB,
	1 K,KQ,TWICE,RST7,RX,RXX,RTILT,RC,RZ,RX3,J3,J4,
	1 J5,J6,J7,J8,J9,J10,J11,JQ(3),L4,L5,L6,L7,L8,RJ
	1 /STF/RSTFAC(0/7),RSTJ2 /XRN/RN(2890),RR3,RR4,RR5,RR6,RR7,RR8
	1 ,RZZ

C J8=7=SLUR WITH VERT. BRKTS.  =8=BRKT ON LEFT ONLY. =9=ON RIGHT ONLY.
C	L6=J6
C	L7=J7
	L8=J8
	RR3=R3
	RR4=R4
C	RR5=R5
	RR6=R6
	RR7=R7
	RR8=R8
	RC=CENTR
C NOW ALL PARAMS ARE SAVED
	RZ=.5*RSTJ2
	RZZ=RZ
CC	R3=RX3
C RX3 IS UN-CONVERTED HORIZ. POS.
	IF(R7.GT.0)GO TO 4
	RZ=-RZ
	RZZ=-RZZ*5.
C SHIFT OF BRKT UP OR DOWN
4	R4=R4+RZZ   
	J5=104
C BRKT NUM.
	JA=3
	R8=0
	J8=0
	J7=0
3	IF(L8.EQ.9)GO TO 1
C NOW MAKE LFT. BRKT
	R6=0
	R7=0
	CALL CENTX
C SET VERTICAL POS. BASED ON R4
	CALL CLEFS
	IF(L8.EQ.8)GO TO 2
C NOW MAKE RIGHT BRKT.
1	R6=-1
	R7=1
	R3=RR6+1
	J3=ROFF(RHORZ(R3))
	R3=J3
	R4=RR5+RZZ
	CALL CLEFS
2	J8=-1
	R3=RR3
	RZ=RZ*3. 
C RESET HEIGHT
	R4=RR4+RZ
	R5=R5+RZ
	R6=RR6
	R7=RR7
	CALL CENTX
	END